home *** CD-ROM | disk | FTP | other *** search
- object frmSend: TfrmSend
- Left = 315
- Top = 126
- Width = 497
- Height = 479
- Caption = 'EMAIL DEMO - Send Mail'
- Font.Color = clWindowText
- Font.Height = -14
- Font.Name = 'System'
- Font.Style = []
- OnResize = FormResize
- PixelsPerInch = 96
- TextHeight = 16
- object Label1: TLabel
- Left = 6
- Top = 28
- Width = 16
- Height = 13
- Caption = '&To:'
- FocusControl = tTo
- Font.Color = clBlack
- Font.Height = -9
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Label2: TLabel
- Left = 6
- Top = 49
- Width = 39
- Height = 13
- Caption = '&Subject:'
- FocusControl = tSubject
- Font.Color = clBlack
- Font.Height = -9
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Label3: TLabel
- Left = 6
- Top = 70
- Width = 26
- Height = 13
- Caption = '&From:'
- FocusControl = tFrom
- Font.Color = clBlack
- Font.Height = -9
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Label4: TLabel
- Left = 6
- Top = 92
- Width = 78
- Height = 13
- Caption = '&Attach binary file'
- FocusControl = tAttachedFile
- Font.Color = clBlack
- Font.Height = -9
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Label5: TLabel
- Left = 6
- Top = 114
- Width = 21
- Height = 13
- Caption = 'Te&xt'
- FocusControl = tMessage
- Font.Color = clBlack
- Font.Height = -9
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Label6: TLabel
- Left = 6
- Top = 6
- Width = 64
- Height = 13
- Caption = 'SMTP Ser&ver'
- FocusControl = tSMTPSrv
- Font.Color = clBlack
- Font.Height = -9
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Label7: TLabel
- Left = 307
- Top = 28
- Width = 24
- Height = 13
- Caption = '&BCC:'
- FocusControl = tBCC
- Font.Color = clBlack
- Font.Height = -9
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object tTo: TEdit
- Left = 109
- Top = 25
- Width = 186
- Height = 21
- Font.Color = clBlack
- Font.Height = -9
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- end
- object tSubject: TEdit
- Left = 109
- Top = 46
- Width = 240
- Height = 21
- Font.Color = clBlack
- Font.Height = -9
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- end
- object tFrom: TEdit
- Left = 109
- Top = 67
- Width = 240
- Height = 21
- Font.Color = clBlack
- Font.Height = -9
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 2
- end
- object tMessage: TMemo
- Left = 4
- Top = 131
- Width = 445
- Height = 260
- Font.Color = clBlack
- Font.Height = -9
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ScrollBars = ssBoth
- TabOrder = 3
- end
- object Button1: TButton
- Left = 378
- Top = 3
- Width = 71
- Height = 19
- Caption = 'Se&nd Mail'
- Font.Color = clBlack
- Font.Height = -9
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 4
- OnClick = Button1Click
- end
- object tAttachedFile: TEdit
- Left = 109
- Top = 89
- Width = 240
- Height = 21
- Font.Color = clBlack
- Font.Height = -9
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 5
- end
- object Button2: TButton
- Left = 378
- Top = 89
- Width = 71
- Height = 19
- Caption = '&Browse'
- Font.Color = clBlack
- Font.Height = -9
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 6
- OnClick = Button2Click
- end
- object cbQuotedPrint: TCheckBox
- Left = 288
- Top = 114
- Width = 161
- Height = 13
- Caption = '&Encode accented chars'
- Font.Color = clBlack
- Font.Height = -9
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 7
- end
- object tSMTPSrv: TEdit
- Left = 109
- Top = 3
- Width = 240
- Height = 21
- Font.Color = clBlack
- Font.Height = -9
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 8
- end
- object lbBtmLines: TListBox
- Left = 6
- Top = 406
- Width = 443
- Height = 26
- BorderStyle = bsNone
- Color = clBtnFace
- Ctl3D = False
- Font.Color = clBlack
- Font.Height = -9
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ItemHeight = 13
- Items.Strings = (
- 'trace protocol here -- right click to clear')
- ParentCtl3D = False
- ParentFont = False
- TabOrder = 9
- OnMouseDown = lbBtmLinesMouseDown
- end
- object tBCC: TEdit
- Left = 339
- Top = 25
- Width = 110
- Height = 21
- Font.Color = clBlack
- Font.Height = -9
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 10
- end
- object OpenDialog1: TOpenDialog
- FileEditStyle = fsEdit
- Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist]
- Title = 'Select File to Send'
- Left = 384
- Top = 48
- end
- object SMTP1: TipwSMTP
- WinsockLoaded = False
- Left = 414
- Top = 52
- RegHnd = {
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000}
- end
- object NetCode1: TipwNetCode
- MaxFileSize = 0
- Mode = '600'
- Left = 446
- Top = 52
- RegHnd = {
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000}
- end
- end
-